global direction,demonDead,chase,blasting,eDoorOpen
if direction = "up" then
go card id 29230
exit move
end if
if direction = "west" then
if eDoorOpen
then
if demonDead then
go to card id 13815
else
go to card id 13242
end if
else
beep
put "The door is locked. You can not go that way." into field 3
end if
exit move
end if
pass move
end move
on closeCard
set the cursor to 4
put "" into field 3
end closeCard
on take
global object,carried
-- remember to update carried if you do not pass take
pass take
end take
on drop
global object,dropRoom,carried
-- remember to update carried if you do not pass drop
pass drop
end drop
on use
global object,carried,eDoorOpen
put last word of object into obj
delete first char of obj
delete last char of obj
if obj="key" then
put "The door leading east is now unlocked and you may pass through." into field 3
put true into eDoorOpen
exit use
end if
-- update carried if use results in loss of object
pass use
end use
-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=122 top=230 right=266 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp
-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=41 top=225 right=261 bottom=75
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp
-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=191 top=216 right=252 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp
-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=55 top=153 right=189 bottom=89
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a time bomb." into field 3
put false into examFlag
end mouseUp
-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=20 top=187 right=223 bottom=54
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp
-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=185 top=125 right=161 bottom=219
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp
-- part 22 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=6 top=224 right=260 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a crystal orb" into field 3
put false into examFlag
end mouseUp
-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=93 top=0 right=20 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,direction,cardID
if examFlag then
put "a shaft leading up" into field 3
put false into examFlag
else
put false into takeFlag
put "up" into direction
send move to card id cardID
end if
end mouseUp
-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=11 top=93 right=187 bottom=47
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,direction,cardID,eDoorOpen,demonDead,takeFlag
if examFlag then
put "a barred door leading west." into field 3
if eDoorOpen
then put " The door is unlocked!" after field 3
else put " The door is locked!" after field 3
if demonDead=false then
put " Peering through the bars you can see the orb of power " after field 3
put "in the dimly lit room beyond!" after field 3
end if
put false into examFlag
else
if takeFlag then
put "You can't take the door." into field 3
put false into takeFlag
else
put "west" into direction
send move to card id cardID
end if
end if
end mouseUp
-- part 36 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=113 top=20 right=130 bottom=146
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,takeFlag,direction,cardID
if takeFlag then
put "You can't take the ladder -- it is attached at the top." into field 3
put false into takeFlag
exit mouseUp
end if
if examFlag then
put "A rope ladder leading into the shaft above." into field 3
put false into examFlag
exit mouseUp
end if
put "up" into direction
send move to card id cardID
end mouseUp
-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=101 top=174 right=218 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,takeFlag,direction,cardID
if takeFlag then
put "Look, I don't want to get gross here, but the body is badly decayed. You really don't want it." into field 3
put false into takeFlag
else
put "A body. Quite dead." into field 3
put false into examFlag
end if
end mouseUp
-- part contents for background part 25
----- text -----
Round Room
(looking north)
-- part contents for background part 24
----- text -----
You are in a round room. There is a doorway to the west with a door made of massive iron bars. There is a hole in the ceiling. A rope ladder hangs down from the opening. In the center of the floor is the body of an unsuccessful adventurer who appears to have broken his neck. It looks like it has been there quite some time (yeech).